home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch07.Authoring / CommandDemos / GetNetText.dir / 00006_scripts.txt < prev    next >
Encoding:
Text File  |  1996-11-11  |  590 b   |  23 lines
  1. -- the following script is in the button
  2. on mouseUp
  3.   global gNetFlag
  4.   GetNetText the text of field "argument"
  5.   set gNetFlag = 1
  6. end
  7.  
  8. -- the next one is a movie script
  9. on idle
  10.     if gNetFlag then
  11.     if netDone() then
  12.       if not(netError() contains "OK") then
  13.         set netText = "Error:" & netError()
  14.       else set netText = "Error:" & netError() && ¬¨
  15.       "MIME:" & netMIME() && "Modified:" & netLastModDate() ¬¨
  16.        & return & netTextResult()
  17.       if netText <> EMPTY then set the text of ¬¨
  18.        field "results" to netText
  19.       set gNetFlag = 0
  20.     end if
  21.   end if
  22. end
  23.